home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Interfaces / UniversalInterfaces 2.1B1 / AIncludes / Folders.a < prev    next >
Encoding:
Text File  |  1995-04-18  |  2.6 KB  |  89 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Folders.a
  3. ;
  4. ;    Contains:    Folder Manager Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Package:    Universal Interfaces 2.1ß1 in “MPW Prerelease” on ETO #17
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__FOLDERS__') = 'UNDEFINED' THEN
  21. __FOLDERS__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29.     IF &TYPE('__FILES__') = 'UNDEFINED' THEN
  30.     include 'Files.a'
  31.     ENDIF
  32. ;        include 'MixedMode.a'                                        ;
  33. ;        include 'OSUtils.a'                                        ;
  34. ;            include 'Memory.a'                                        ;
  35.  
  36. kOnSystemDisk                    EQU        $8000
  37. kCreateFolder                    EQU        true
  38. kDontCreateFolder                EQU        false
  39. kSystemFolderType                EQU        'macs'                ; the system folder 
  40. kDesktopFolderType                EQU        'desk'                ; the desktop folder; objects in this folder show on the desk top. 
  41. kTrashFolderType                EQU        'trsh'                ; the trash folder; objects in this folder show up in the trash 
  42. kWhereToEmptyTrashFolderType    EQU        'empt'                ; the "empty trash" folder; Finder starts empty from here down 
  43. kPrintMonitorDocsFolderType        EQU        'prnt'                ; Print Monitor documents 
  44. kStartupFolderType                EQU        'strt'                ; Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here 
  45. kAppleMenuFolderType            EQU        'amnu'                ; Finder objects to put into the Apple menu go here 
  46. kControlPanelFolderType            EQU        'ctrl'                ; Control Panels go here (may contain INITs) 
  47. kExtensionFolderType            EQU        'extn'                ; Finder extensions go here 
  48. kFontsFolderType                EQU        'font'                ; Fonts go here 
  49. kPreferencesFolderType            EQU        'pref'                ; preferences for applications go here 
  50. kTemporaryFolderType            EQU        'temp'
  51.  
  52.     IF SystemSevenOrLater  THEN
  53. ;
  54. ; pascal OSErr FindFolder(short vRefNum, OSType folderType, Boolean createFolder, short *foundVRefNum, long *foundDirID)
  55. ;
  56.     IF ¬ GENERATINGCFM THEN
  57.         Macro
  58.         _FindFolder
  59.             moveq    #0,d0
  60.             dc.w     $A823
  61.         EndM
  62.     ELSE
  63.         IMPORT_CFM_FUNCTION    FindFolder
  64.     ENDIF
  65.  
  66.     ELSE
  67. ;
  68. ; pascal OSErr FindFolder(short vRefNum, OSType folderType, Boolean createFolder, short *foundVRefNum, long *foundDirID)
  69. ;
  70.     IF GENERATINGCFM THEN
  71.         IMPORT_CFM_FUNCTION    FindFolder
  72.     ENDIF
  73.  
  74.     ENDIF
  75. ;
  76. ; pascal OSErr ReleaseFolder(short vRefNum, OSType folderType)
  77. ;
  78.     IF ¬ GENERATINGCFM THEN
  79.         Macro
  80.         _ReleaseFolder
  81.             moveq    #11,d0
  82.             dc.w     $A823
  83.         EndM
  84.     ELSE
  85.         IMPORT_CFM_FUNCTION    ReleaseFolder
  86.     ENDIF
  87.  
  88.     ENDIF ; __FOLDERS__
  89.